home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0587.arc / FORTARG.FOR < prev    next >
Text File  |  1987-03-19  |  476b  |  17 lines
  1. C     PROGRAM TO DEMONSTRATE THE OPERATION OF HEADER.ASM & COMLIN.ASM
  2. C     JOHN W. ROSS  1986
  3.  
  4.       INTEGER COMLIN
  5.       CHARACTER COMARG*127, FILNAM*64, TEXT*70
  6.       IF (COMLIN(COMARG).EQ.0) THEN
  7.         WRITE (*,'(1X,A\)') 'Input file name ... '
  8.         READ (*,'(A)') FILNAM
  9.       ELSE
  10.         FILNAM=COMARG(2:)
  11.       ENDIF
  12.       OPEN (1,FILE=FILNAM,STATUS='OLD')
  13. 1     READ (1,'(A)') TEXT
  14.       WRITE (*,*) 'FIRST LINE: ',TEXT
  15.       CLOSE (1)
  16.       END
  17.